Marcos Nascimento 11 de maio de 2017

dependencias = c(“dplyr”, “ggplot2”, “GGally”, “readr”, “plotly”)

devtools::install_github(“ropensci/plotly”)

install.packages(dependencias)

library(dplyr, warn.conflicts = FALSE)
library(ggplot2)
library(plotly)
dados = read.csv(file = 'dados/ano-atual.csv')
head(dados)

(Pergunta 1) Dando um foco no nosso estado (Paraíba), quais fornecedores mais se destacam aqui no nosso estado, essas empresas são realmente daqui? Se sim, qual a relação entre nossos deputados e esses fornecedores?

(Pergunta 2) Analisando o gasto dos deputados com passagens aéreas, é esperado que esses gastos tenha uma correlação com o estado de origem do deputado, isso realmente existe? Existem outliers nesses gastos, se sim, como podemos entendê-los?

LS0tDQp0aXRsZTogIlByb2JsZW1hMS1DaGVja3BvaW50NCINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCk1hcmNvcyBOYXNjaW1lbnRvDQoxMSBkZSBtYWlvIGRlIDIwMTcNCg0KI2RlcGVuZGVuY2lhcyA9IGMoImRwbHlyIiwgImdncGxvdDIiLCAiR0dhbGx5IiwgInJlYWRyIiwgInBsb3RseSIpDQojZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCJyb3BlbnNjaS9wbG90bHkiKQ0KI2luc3RhbGwucGFja2FnZXMoZGVwZW5kZW5jaWFzKQ0KDQpgYGB7cn0NCmxpYnJhcnkoZHBseXIsIHdhcm4uY29uZmxpY3RzID0gRkFMU0UpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHBsb3RseSkNCg0KZGFkb3MgPSByZWFkLmNzdihmaWxlID0gJ2RhZG9zL2Fuby1hdHVhbC5jc3YnKQ0KaGVhZChkYWRvcykNCmBgYA0KDQojKFBlcmd1bnRhIDEpIERhbmRvIHVtIGZvY28gbm8gbm9zc28gZXN0YWRvIChQYXJhw61iYSksIHF1YWlzIGZvcm5lY2Vkb3JlcyBtYWlzIHNlIGRlc3RhY2FtIGFxdWkgbm8gbm9zc28gZXN0YWRvLCBlc3NhcyBlbXByZXNhcyBzw6NvIHJlYWxtZW50ZSBkYXF1aT8gU2Ugc2ltLCBxdWFsIGEgcmVsYcOnw6NvIGVudHJlIG5vc3NvcyBkZXB1dGFkb3MgZSBlc3NlcyBmb3JuZWNlZG9yZXM/DQoNCmBgYHtyfQ0KZGVwdXRhZG9zLnBiIDwtIGRhZG9zICU+JSBmaWx0ZXIoc2dVRiA9PSAnUEInKSAlPiUgc2VsZWN0KHR4Tm9tZVBhcmxhbWVudGFyLCBzZ1BhcnRpZG8pICU+JSBkaXN0aW5jdCgpDQoNCmRlcHV0YWRvcy5wYiA8LSBjKCJBR1VJTkFMRE8gUklCRUlSTyIsICJCRU5KQU1JTiBNQVJBTkjDg08iLCAiREFNScODTyBGRUxJQ0lBTk8iLCAiRUZSQUlNIEZJTEhPIiwgIkhVR08gTU9UVEEiLCAiTFVJWiBDT1VUTyIsICJNQU5PRUwgSlVOSU9SIiwgIk1BUkNPTkRFUyBHQURFTEhBIiwgIlBFRFJPIENVTkhBIExJTUEiLCAiUsOUTVVMTyBHT1VWRUlBIiwgIlZFTkVaSUFOTyBWSVRBTCBETyBSw4pHTyIsICJXRUxMSU5HVE9OIFJPQkVSVE8iLCAiV0lMU09OIEZJTEhPIikNCg0KZm9ybmVjZWRvcmVzLmRlcHV0YWRvcy5wYiA8LSBkYWRvcyAlPiUNCiAgZmlsdGVyKHR4Tm9tZVBhcmxhbWVudGFyICVpbiUgZGVwdXRhZG9zLnBiICkgJT4lDQogIHNlbGVjdCh0eE5vbWVQYXJsYW1lbnRhciwgdHh0Q05QSkNQRiwgdHh0Rm9ybmVjZWRvciwgdHh0RGVzY3JpY2FvLHZsckRvY3VtZW50bykgJT4lDQogIG11dGF0ZSh0eHRDTlBKQ1BGID0gYXMuZmFjdG9yKHR4dENOUEpDUEYpKSAlPiUNCiAgZ3JvdXBfYnkodHhOb21lUGFybGFtZW50YXIsIHR4dENOUEpDUEYsIHR4dEZvcm5lY2Vkb3IsIHR4dERlc2NyaWNhbykgJT4lDQogIHN1bW1hcmlzZSh2YWxvci50b3RhbCA9IHN1bSh2bHJEb2N1bWVudG8pKQ0KYGBgDQoNCiMoUGVyZ3VudGEgMikgQW5hbGlzYW5kbyBvIGdhc3RvIGRvcyBkZXB1dGFkb3MgY29tIHBhc3NhZ2VucyBhw6lyZWFzLCDDqSBlc3BlcmFkbyBxdWUgZXNzZXMgZ2FzdG9zIHRlbmhhIHVtYSBjb3JyZWxhw6fDo28gY29tIG8gZXN0YWRvIGRlIG9yaWdlbSBkbyBkZXB1dGFkbywgaXNzbyByZWFsbWVudGUgZXhpc3RlPyBFeGlzdGVtIG91dGxpZXJzIG5lc3NlcyBnYXN0b3MsIHNlIHNpbSwgY29tbyBwb2RlbW9zIGVudGVuZMOqLWxvcz8NCg0KYGBge3J9DQpjaWEuYWVyZWFzIDwtIGMoIkNpYSBBw6lyZWEgLSBUQU0iLCAiQXZpYW5jYSIsICJBenVsIExpbmhhcyBBw6lyZWFzIiwgIkNpYSBBw6lyZWEgLSBBVklBTkNBIiwgIkNpYSBBw6lyZWEgLSBBWlVMIiwiQ2lhIEHDqXJlYSAtIEdPTCIsICJHT0wgLSBMSU5IQVMgQcOJUkVBUyBJTlRFTElHRU5URVMiLCAiR09MIC0gTElOSEFTIEHDiVJFQVMgUy9BIiwgIkNpYSBBw6lyZWEgLSBUQU0iLCAiVEFNIExJTkFTIEHDiVJFQVMgUy5BIiwgIlRhbSBMaW5oYXMgQcOpcmVhcyIpDQoNCmdhc3Rvcy5jaWEuYWVyZWFzIDwtIGZvcm5lY2Vkb3Jlcy5kZXB1dGFkb3MucGIgJT4lIGZpbHRlcih0eHRGb3JuZWNlZG9yICVpbiUgY2lhLmFlcmVhcykgJT4lIGdyb3VwX2J5KHR4Tm9tZVBhcmxhbWVudGFyKSAlPiUgc3VtbWFyaXNlKHZhbG9yLnRvdGFsID0gc3VtKHZhbG9yLnRvdGFsKSkNCg0KcmFua2luZy5nYXN0b3MgPC0gcGxvdF9seShnYXN0b3MuY2lhLmFlcmVhcywNCiAgeCA9IHJlb3JkZXIoZ2FzdG9zLmNpYS5hZXJlYXMkdHhOb21lUGFybGFtZW50YXIsIGdhc3Rvcy5jaWEuYWVyZWFzJHZhbG9yLnRvdGFsKSwNCiAgeSA9IGdhc3Rvcy5jaWEuYWVyZWFzJHZhbG9yLnRvdGFsLA0KICBuYW1lID0gIkdhc3RvcyBQYXNzYWdlbnMgQcOpcmVhcyIsDQogIHR5cGUgPSAiYmFyIikNCg0KcmFua2luZy5nYXN0b3MNCmBgYA0KDQo=